home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / backquot.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  6.5 KB  |  140 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
  4.    (SPECIAL *BACKQUOTE-LEVEL*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
  7.    (SPECIAL *NSPLICE-FUN*)
  8.   )
  9. #Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 BE 0F 01 19 01) NCONC
  10.    *NSPLICE-FUN*
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  13.    |`-READER| REMOVE-OLD-DEFINITIONS
  14.    #Y(|`-READER|
  15.       #50Y(00 02 00 00 00 03 0E 00 1B 01 BF 14 30 AB 10 00 AD 5C 5B 5C 69 79 D6
  16.            A9 67 03 AA 67 04 67 05 73 03 63 00 DA 88 01 2B 04 A8 2D 07 EA 15 16
  17.            01 11 19 03
  18.           )
  19.       *BACKQUOTE-LEVEL* 0. BACKQUOTE REMOVE-BACKQUOTE-THIRD UNQUOTE-LEVEL
  20.       BACKQUOTE-1 1. ELIM-UNQUOTE-DUMMY
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  23.    |,-READER| REMOVE-OLD-DEFINITIONS
  24.    #Y(|,-READER|
  25.       #82Y(00 02 00 00 00 03 5B AB 36 03 69 7F 0E 00 1C 0A 63 00 86 A6 10 C1 14
  26.            D6 5A 01 BF 1A 79 AE 36 03 2F 7D C3 1A 14 63 00 30 AC 10 00 AB 23 04
  27.            6E AB 24 07 12 AE 36 03 2F 7D C6 14 DA B0 5C 5B 5C 69 79 59 02 1A 07
  28.            DA AF 5C 5B 5C 2F 79 14 59 02 11 19 04
  29.           )
  30.       *BACKQUOTE-LEVEL* "~S: comma is illegal outside of backquote" READ
  31.       "~S: more commas out than backquotes in, is illegal" #\@ SPLICE UNQUOTE
  32.       #\. NSPLICE
  33.   )  )
  34. #Y(#:TOP-LEVEL-FORM-7
  35.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  36.         19 01
  37.        )
  38.    REMOVE-BACKQUOTE-THIRD REMOVE-OLD-DEFINITIONS
  39.    #Y(REMOVE-BACKQUOTE-THIRD
  40.       #54Y(00 01 00 00 00 02 93 1F 1E 8B 01 24 02 04 93 54 20 1C 8B 01 64 70 8C
  41.            02 26 6C 55 19 02 D5 61 00 00 AB 31 00 24 19 02 A9 85 4A 72 93 19 02
  42.            D6 94 54 70 59 02 19 02
  43.           )
  44.       NIL VECTOR BACKQUOTE
  45.   )  )
  46. #Y(#:TOP-LEVEL-FORM-8
  47.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  48.         19 01
  49.        )
  50.    ELIM-UNQUOTE-DUMMY REMOVE-OLD-DEFINITIONS
  51.    #Y(ELIM-UNQUOTE-DUMMY
  52.       #59Y(00 01 00 00 00 02 93 1F 24 8B 01 A8 64 78 8C 03 A8 64 73 AB 95 22 04
  53.            A9 93 21 1D AA 93 55 19 06 C0 19 02 D7 61 00 00 AB 31 00 24 19 02 A9
  54.            23 01 6F A9 85 4A 6E 93 19 02 97 19 06
  55.           )
  56.       NIL UNQUOTE-DUMMY UNQUOTE VECTOR
  57.   )  )
  58. #Y(#:TOP-LEVEL-FORM-9
  59.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  60.         19 01
  61.        )
  62.    UNQUOTE-LEVEL REMOVE-OLD-DEFINITIONS
  63.    #Y(UNQUOTE-LEVEL
  64.       #167Y(00 01 00 01 00 08 28 29 01 37 02 01 BF 0B 00 00 95 1F 2F 8B 03 24
  65.             04 04 95 54 20 3A 8B 03 24 07 05 95 54 20 80 69 8B 03 60 01 00 64
  66.             59 8C 04 60 02 00 26 52 55 19 04 D6 A9 65 03 01 AD 31 00 24 19 04
  67.             AB 85 4A 71 95 19 04 D9 96 54 70 59 02 19 04 92 54 53 19 05 60 00
  68.             00 85 A6 6D 95 54 70 60 01 00 6A AC 64 FF 9F 92 1F 11 8B 00 24 06
  69.             0C 92 54 53 1F 07 92 54 53 70 23 05 56 D8 A9 59 02 19 05 97 54 54
  70.             70 60 03 00 64 FF 7B 59 01 1A 12 DB 96 54 70 60 02 00 6A AB 64 FF
  71.             6B 97 54 54 20 61 00 14 31 02 1F 19 04
  72.            )
  73.       NIL 0. VECTOR
  74.       #Y(UNQUOTE-LEVEL-1 #16Y(00 01 00 00 00 02 A9 61 00 00 07 01 00 32 19 02)
  75.          NIL
  76.         )
  77.       UNQUOTE UNQUOTE-VALUE QUOTE BACKQUOTE
  78.   )  )
  79. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  80.    SPLICING-P REMOVE-OLD-DEFINITIONS
  81.    #Y(SPLICING-P
  82.       #27Y(00 01 00 00 00 02 A9 30 2B 1E 0E 8B 01 A8 BE 52 1D 05 A8 BF 52 19 03
  83.            19 03 19 02
  84.           )
  85.       SPLICE NSPLICE
  86.   )  )
  87. #Y(#:TOP-LEVEL-FORM-11
  88.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  89.         19 01
  90.        )
  91.    BACKQUOTE-1 REMOVE-OLD-DEFINITIONS
  92.    #Y(BACKQUOTE-1
  93.       #340Y(00 01 00 00 00 02 93 1F 80 8C 8B 01 23 0A 80 AE 8B 01 23 0B 80 AD
  94.             8B 01 23 0D 80 AA 8B 01 24 0F 05 93 54 20 80 AE 93 53 1F 07 93 53
  95.             70 23 0B 80 BC 93 53 1F 81 0F 93 53 70 24 0D 81 08 93 53 54 53 1F
  96.             09 93 53 54 53 70 23 0A 80 D9 93 53 70 64 FF B4 94 53 71 64 FF AE
  97.             2E 14 1A 80 ED 93 19 02 D6 D7 D8 28 14 65 05 01 AD 6B 00 24 31 02
  98.             1F 19 02 DB DC DD AB 6B 00 24 59 02 19 03 90 01 AA 87 00 25 5D D8
  99.             61 00 00 AB 6B 00 24 DA A9 87 00 26 60 DC 93 55 19 03 A9 86 2D 0B
  100.             A9 84 63 07 A9 AA 2F 51 21 FF B8 A9 85 2F FF B3 A9 85 2E FF AE A9
  101.             85 48 FF A9 A9 85 4A 44 DB AA 59 02 19 02 93 54 53 19 02 E0 5A 00
  102.             E2 5A 00 96 54 54 70 64 FF 36 59 01 1A 13 D8 E4 CF 10 12 98 54 70
  103.             26 FF 27 11 14 96 54 54 20 63 00 14 31 03 1F 19 02 93 53 54 53 1F
  104.             FF 58 93 53 54 53 70 24 0A FF 4F 93 53 54 70 64 FF 02 8C 02 64 FE
  105.             FD 2E 13 19 02 63 12 AA 59 02 19 04 A9 7F 01 75 93 19 04 63 12 AA
  106.             8C 02 31 02 1F 19 04 93 53 54 70 64 FE DA 8C 02 64 FE D5 8A 00 60
  107.             92 1F 06 8B 00 0E 12 21 5E 63 12 AA AA 59 03 19 04 8B 01 26 FE BC
  108.             14 8C 02 64 FE B6 2E 14 19 02
  109.            )
  110.       NIL SPLICING-P MULTIPLE-VALUE-CALL #'VECTOR LIST
  111.       #Y(BACKQUOTE-1-1
  112.          #55Y(00 01 00 00 00 02 A9 7F 01 11 D9 94 14 07 00 00 6C 59 02 19 02 D7
  113.               94 54 53 1A 71 93 54 53 1F 07 93 54 53 70 23 02 6E 8B 01 07 00 00
  114.               6C 8C 02 07 00 00 6C 2E 04 19 02
  115.              )
  116.          NIL SPLICING-P UNQUOTE-VALUE VALUES-LIST BACKQUOTE-CONS VALUES
  117.         )
  118.       #.#'CONSTANTP QUOTE VECTOR #.#'EVAL UNQUOTE-VALUE SPLICE
  119.       "The syntax ,@form is valid only in lists" NSPLICE
  120.       "The syntax ,.form is valid only in lists" BACKQUOTE 'BACKQUOTE APPEND
  121.       *NSPLICE-FUN* BACKQUOTE-APPEND BACKQUOTE-CONS
  122.   )  )
  123. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  124.    BACKQUOTE-APPEND REMOVE-OLD-DEFINITIONS
  125.    #Y(BACKQUOTE-APPEND
  126.       #46Y(00 02 00 00 00 03 8A 01 15 93 1F 05 8B 01 23 01 14 D5 AB AB 59 03 19
  127.            03 D5 AB 59 02 19 03 AA 7F 00 76 94 19 03 D5 AB 8C 03 31 02 1F 19 03
  128.           )
  129.       SPLICING-P APPEND
  130.   )  )
  131. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  132.    BACKQUOTE-CONS REMOVE-OLD-DEFINITIONS
  133.    #Y(BACKQUOTE-CONS
  134.       #84Y(00 02 00 00 00 03 AA 84 63 04 A9 83 63 0D 89 01 2A D7 95 14 59 02 19
  135.            03 C0 1A 0E AA 77 60 02 A9 77 60 01 D4 AB 23 01 70 95 14 95 55 1A 65
  136.            C1 1A 01 C3 14 AB 8C 03 31 02 1F 19 03 93 1F 0F 8B 01 23 03 6B 8B 01
  137.            23 05 69 8B 01 23 04 64 D8 AB AB 59 03 19 03
  138.           )
  139.       QUOTE UNQUOTE UNQUOTE-DUMMY LIST CONS LIST*
  140.   )  )